**RETROBALL
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1
COPY 4 6 1
COPY 9 C 1
COPY E 10 1
COPY 12 14 1
COPY 17 1D 1
COPY 20 22 1

***
**RINGS OF SATURN
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1 SYNC=YES

***
**RASTER BLASTER
SET VERLEN 8
SET LEADFB 1
SET DATAFB 1
SET PAT1 TO D5 AA B5 /
SET PAT2 TO AD DE /
READ
TSTART PAT1
VSTART PAT1
TEND REPEAT
TSTART BSPACE 10
WRITE
COPY TRACK 0 TO 0 BY 1
READ
TSTART PAT2
VSTART PAT2
TSTART BSPACE 10
TEND TSTART 16
WRITE
COPY TRACK 5 TO 11 BY 4
COPY TRACK 6 TO 12 BY 4
COPY TRACK 7.5 TO F.5 BY 4
COPY TRACK 1.5 TO 3.5 BY 2

***
**RENDEZVOUS
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 23 1 SYNC=YES

***
**ROBOT WARS
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1 SYNC=YES

***
**RASTER BLASTER
SET VERLEN 8
SET LEADFB 1
SET DATAFB 1
SET PAT1 TO D5 AA B5 /
SET PAT2 TO AD DE /
READ
TSTART PAT1
VSTART PAT1
TEND REPEAT
TSTART BSPACE 10
WRITE
COPY TRACK 0 TO 0 BY 1
READ
TSTART PAT2
VSTART PAT2
TSTART BSPACE 10
TEND TSTART 16
WRITE
COPY TRACK 5 TO 11 BY 4
COPY TRACK 6 TO 12 BY 4
COPY TRACK 7.5 TO F.5 BY 4
COPY TRACK 1.5 TO 3.5 BY 2
***
